10 REM MIDDLE EARTH QUIZ BY HENRY NEWCOMB
20 REM TRANSLATED FOR THE COMMODORE 64 BY DONNA K. WOODY
30 :PRINT"[147]"
40 POKE53272,23: REM SELECTS UPPER/LOWER CASE
50 PRINTCHR$(8): REM DISABLES C/SHIFT KEYS
60 POKE53280,14 :REM SET BORDER COLOR TO LIGHT BLUE
70 POKE53281,5 :REM SET BACKGROUND COLOR TO GREEN
80 PRINTCHR$(5):REM SET CHARACTER COLOR TO WHITE
97 :
98 REM INITIALIZE VARIABLES
99 :
100 FLAG=0:Q=32:X=Q
110 DIM Q$(Q),A$(X),B$(X),C$(X),D$(X),RA$(X)
127 :
128 REM READ DATA STATEMENTS
129 :
130 FORCNT=1TOQ:READQ$(CNT):READA$(CNT):READB$(CNT):READC$(CNT):READD$(CNT)
140 READRA$(CNT):NEXTCNT
150 FORX=1TO6:READQUIZ$(X):NEXT
167 :
168 REM TITLE PAGE
169 :
170 GOSUB5000
197 :
198 REM PRINT QUESTIONS
199 :
200 RT=0:WR=0:FORCNT=1TOQ
205 PRINTCHR$(147)
210 PRINTTAB(13)"[205][201][196][196][204][197] [197][193][210][212][200] [209][213][201][218]"
220 PRINT"[209][213][197][211][212][201][207][206][160]# ";CNT
230 PRINT"";Q$(CNT);" ?"
240 PRINT"[193]. ";A$(CNT)
245 PRINT
250 PRINT"[194]. ";B$(CNT)
255 PRINT
260 PRINT"[195]. ";C$(CNT)
265 PRINT
270 PRINT"[196]. ";D$(CNT)
272 PRINT
275 PRINT"[216]. [197]XITS [208]ROGRAM"
280 PRINT"[197]NTER [[193]] [[194]] [[195]] [[196]] [[216]]  ";
290 POKE204,0:POKE207,0:GETM$:IFM$=""THEN290
291 POKE 204,1 :PRINT
300 IFM$="A"ORM$="B"ORM$="C"ORM$="D"THEN400
335 IFM$="X"THEN 700
340 PRINT"[211]ORRY. [217]OU MUST ENTER [193], [194], [195], ,[196] OR [216].[145][145][145][145][145]":GOTO280
397 :
398 REM KEEP SCORE
399 :
400 IFM$=RA$(CNT)THENRT=RT+1:GOTO 450
410 WR=WR+1:PRINTTAB(26)"[145][215]RONG!!"
415 PRINTRA$(CNT)" IS THE CORRECT ANSWER."
420 PRINT"[208]RESS SPACE BAR TO CONTINUE.";
430 POKE204,0:POKE207,0:GETZ$:IFZ$=""THEN430
440 POKE204,1
450 NEXTCNT
497 :
498 REM FINAL REPORT
499 :
500 PRINTCHR$(147)
510 PRINTTAB(13)"[205][201][196][196][204][197] [197][193][210][212][200] [209][213][201][218]"
520 PRINT"[217]OU GOT ";RT;" QUESTIONS RIGHT."
530 PRINT"[217]OU GOT ";WR;" QUESTIONS WRONG."
540 IFWR=0THENFLAG=1:GOTO 600
550 IFWR>0ANDWR<4THENFLAG=2:GOTO 600
560 IFWR>3ANDWR<13THENFLAG=3:GOTO 600
570 IFWR>12ANDWR<21THENFLAG=4:GOTO 600
580 IFWR>20ANDWR<26THENFLAG=5:GOTO 600
590 IFWR>25THENFLAG=6
600 PRINT"";QUIZ$(FLAG)
610 PRINT"[215]OULD YOU LIKE TO TRY AGAIN (Y/N)?";
620 POKE204,0:POKE207,0:GETZ$:IFZ$=""THEN620
630 POKE204,1
640 IFZ$="Y"THEN 200
650 IFZ$="N"THEN 700
697 :
698 REM END ROUTINE
699 :
700 GOTO40000:REMD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"QQQQRUNS"
705 [151]631,13:[151]632,13:[151]198,2:[128]
997 :
998 [143] DATA STATEMENTS
999 :
1000 [131]"RIGHT$N WHAT LAND IS (null)T. STR$OOM LOCATED","CHR$ONDOR","(null)ORDOR","(null)OHAN","VALRIADOR"
1010 [131]"B"
1020 [131]"(null)HERE ARE THE MINES OF (null)ORIA LOCATED","(null)ORDOR","(null)ISTY (null)OUNTAINS"
1030 [131]"(null)TS. OF (null)HADOW","RIGHT$RON LEFT$ILLS","B"
1040 [131]"(null)HERE IS STR$OL ATNMROTH LOCATED","(null)EST OF CHR$ONDOR","(null)HE (null)ISTY (null)OUNTAINS"
1050 [131]"(null)HE PEEKAY OF PEEKELFALAS","(null)ORTHERN (null)ASTE","C"
1060 [131]"RIGHT$N WHAT LAND IS LEFT$ELMS STR$EEP LOCATED","CHR$ONDOR","(null)HE (null)HIRE","(null)ORDOR"
1070 [131]"(null)OHAN","D"
1080 [131]"ATNLONG WHAT ROAD DOES RIGHT$SENGARD LIE","(null)LD (null)OUTH (null)OAD","(null)HE CHR$REENWAY"
1090 [131]"(null)LD ASCOREST (null)OAD","CHR$REAT VALAST (null)OAD",A
1100 [131]"RIGHT$N WHAT LAND IS THE (null)HIRE LOCATED","(null)HOVANION","VALRIADOR","CHR$ONDOR"
1110 [131]"(null)HUN",B
1120 [131]"(null)HAT ARE THE SEEING STONES OF (null)UMENOR","VALYE GLASSES","(null)ALANTIRS"
1130 [131]"(null)IRRORS","(null)INDOWS",B
1140 [131]"(null)HO IS THE CHR$REY (null)ILGRIM","PEEKILBO","ATNRAGORN","CHR$ANDALF","PEEKOROMIR",C
1150 [131]"(null)HO WAS ASCARAMIR","PEEKOROMIR'S BROTHER","(null)NE OF THE LEFT$OBBITS"
1160 [131]"(null)HE ELF KING","(null)HE NAME OF THE PEEKLACK LENAPTAIN",A
1170 [131]"(null)HAT ARE OLIPHAUNTS","(null)RC FOR LEFT$OBBIT","VALLEPHANTS","ATNN (null)RC CLAN"
1180 [131]"CHR$OBLINS",B
1190 [131]"(null)HAT WAS THE SPECIAL MARK THAT PEEKOROMIR  CARRIED WITH HIM","ATN RING"
1200 [131]"ATN SWORD","ATN HORN","ATNN AMULET",C
1210 [131]"(null)HO STOOD GUARD OVER (null)ARUMAN AT         (null)RTHANC","(null)HE VALNTS","(null)RCS"
1220 [131]"CHR$ANDALF","VALLVES",A
1230 [131]"(null)HO RODE WITH CHR$ANDALF ON (null)HADOWFAX TO   (null)INAS (null)IRITH","(null)ERRY"
1240 [131]"ASCRODO","(null)IPPIN","(null)AM",C
1250 [131]"(null)HICH THREE OF THE CHR$REY LENOMPANY TRACKED (null)ARUMAN'S ORCS INTO (null)OHAN"
1260 [131]"ATNRAGORN - PEEKOROMIR - ASCRODO","(null)ERRY - (null)IPPIN - CHR$ANDALF"
1270 [131]"ATNRAGORN - (null)EGOLAS - CHR$IMLI","CHR$IMLI - ASCRODO - (null)AM",C
1280 [131]"(null)HO DID ATNRAGORN, (null)EGOLAS, AND CHR$IMLI     MEET IN (null)OHAN","ASCRODO"
1290 [131]"(null)REEBEARD","(null)ITHRANDIR","ASCATTY (null)UMPKIN",C
1300 [131]"(null)HAT FAMOUS OBJECT WAS BROKEN AT THE    BATTLE OF ATNRGONATH"
1310 [131]"ATNRAGORN'S SWORD","PEEKOROMIR'S HORN","CHR$ANDALF'S STAFF","ASCRODO'S RING",B
1320 [131]"(null)HAT WAS CHR$ANDALF'S REAL NAME","ATNMBROSIUS","PEEKEN","RIGHT$NGLORIAN","(null)LORIN",D
1330 [131]"LEFT$OW MANY (null)AZGUL BROKE INTO LENRICKHOLLOW","(null)WO","(null)HREE","ASCOUR","ASCIVE",B
1340 [131]"(null)HO OR WHAT ACCORDING TO LEGEND WAS THE FIRST LIVING THING ON 'VALARTH'"
1350 [131]"(null)OM PEEKOMBADIL","(null)HE VALNTS","(null)HE ELVES","(null)MAUG",A
1360 [131]"(null)HO BECAME A BEAR AT THE BATTLE OF THE  FIVE ARMIES","ATNRAGORN"
1370 [131]"CHR$IMLI","PEEKEORN","CHR$ANDALF",C
1380 [131]"(null)HO WAS (null)UICKBEAM","ATNN VALNT","ATNN ELF","ATN LEFT$OBBIT","CHR$ANDALF",A
1390 [131]"(null)HAT WAS THE ONLY HARM (null)MAUG INFLICTED  ON PEEKILBO"
1400 [131]"ATN SMALL CUT ON THE FOREHEAD","ATN TWISTED ANKLE"
1410 [131]"PEEKURNING THE HAIR OFF HIS ANKLE","(null)ONE",C
1420 [131]"(null)HO WAS THE LAST STEWARD OF CHR$ONDOR","PEEKOROMIR","ATNRAGORN","ASCARAMIR"
1430 [131]"STR$ENETHOR",D
1440 [131]"(null)HO WAS THE LAST PERSON TO HAVE THE RINGIN HIS POSSESSION","(null)AM"
1450 [131]"ASCRODO","CHR$OLLUM","(null)ONE OF THE ABOVE",C
1460 [131]"(null)AME THE LAST THREE RING BEARERS IN     ORDER","(null)AM - ASCRODO - CHR$OLLUM"
1470 [131]"ASCRODO - (null)AM - CHR$OLLUM","ASCRODO - CHR$OLLUM - ASCRODO","(null)AM - CHR$OLLUM - ASCRODO"
1480 [131]A
1490 [131]"(null)HICH TWO FAMOUS PEOPLE HAVE NINE       FINGERS","(null)AM - ASCRODO"
1500 [131]"ASCRODO - (null)AURON","CHR$ANDALF - ASCRODO","PEEKILBO - (null)AM",B
1510 [131]"(null)HAT WAS THE NAME OF THE HORSE THAT (null)OM PEEKOMBADIL RODE","(null)HADOWFAX"
1520 [131]"(null)TRONG-BEARER","ASCATTY (null)UMPKIN","(null)RAIL ASCOLLOWER",C
1530 [131]"(null)HO WAS (null)HARKY","ASCRODO","CHR$ANDALF","(null)AURON","(null)ARUMAN",D
1540 [131]"(null)HAT DID CHR$ANDALF THREATEN TO DO TO      PEEKARLIMAN PEEKUTTERBUR"
1550 [131]"(null)URN HIM INTO A FROG","(null)POIL HIS FOOD","(null)URN HIS BEER SOUR"
1560 [131]"PEEKURN HIS INN DOWN",C
1570 [131]"(null)HAT WAS ASCRODO'S MISTAKE ON (null)EATHERTOP","LEFT$E PUT THE RING ON"
1580 [131]"LEFT$E GOT LOST","LEFT$E INSULTED ATNRAGORN","LEFT$E PUT THE FIRE OUT",A
1590 [131]"(null)HO HELPED ASCRODO REACH (null)IVENDELL (AT THEVERY END)","CHR$ANDALF","(null)AM"
1600 [131]"ATNRAGORN","CHR$LORFINDEL",D
1610 [131]"(null)HAT OR WHO SAVED ASCRODO'S LIFE IN THE   MINES OF (null)ORIA","ATNRAGORN"
1620 [131]"(null)HE RING","(null)HE MITHRIL COAT","CHR$ANDALF'S SPELL",C
1630 :
1631 [143] QUIZ$ REPORT DATA
1632 :
1640 [131]"(null)ITH A RECORD LIKE THAT YOU COULD GUIDE ASCRODOWITH YOUR EYES CLOSED."
1650 [131]"(null)OU COULD PROBABLY GUIDE ASCRODO AND      LENOMPANY THROUGH THE LANDS."
1660 [131]"(null)OU COULD PROBABLY GUIDE ASCRODO WITH THE HELP OF A MAP."
1670 [131]"(null)OU WOULD BE WISE TO HAVE SOMEONE GUIDE YOU THROUGH THE LANDS."
1680 [131]"(null)ITH A LOT OF LUCK AND A MAP YOU MIGHT  MAKE IT THROUGH THE LANDS."
1690 [131]"DO NOT LEAVE THE IMMEDIATE AREA AS YOU  ARE LIKELY TO GET LOST."
4997 :
4998 [143] TITLE PAGE
4999 :
5000 [153][199](147)
5005 [153]""
5010 [153][163]11)"(null)IDDLE VALARTH (null)UIZ"
5012 [153][163]18)"BY"
5014 [153][163]13)"VERIFYLEFT$ENRY (null)EWCOMB"
5016 [153][163]6)"OPEN(null)RANSLATED BY STR$ONNA (null). (null)OODY"
5020 [153]"RIGHT$NSTRUCTIONS (Y/N)?";
5030 [151]204,0:[151]207,0:[161]Z$:[139]Z$[178]""[167]5030
5040 [151]204,1
5050 [139]Z$[178]"Y"[167]6000
5060 [139]Z$[178]"N"[167]200
5070 [137]5030
5080 [142]
5997 :
5998 [143] INSTRUCTIONS
5999 :
6000 [153][199](147)
6005 [153]"    (null)ELCOME TO THE (null)IDDLE VALARTH (null)UIZ."
6010 [153]:[153]"RIGHT$N THIS QUIZ YOU WILL BE ASKED":[153]
6020 [153]"QUESTIONS CONCERNING THE CHARACTERS":[153]
6030 [153]"AND GEOGRAPHY OF (null)IDDLE VALARTH.  (null)HE":[153]
6040 [153]"QUESTIONS ARE ALL MULTIPLE CHOICE.":[153]
6050 [153]"(null)HEN YOU ARE FINISHED, YOU WILL BE":[153]
6060 [153]"TOLD HOW MANY QUESTIONS YOU GOT RIGHT":[153]
6070 [153]"AND HOW MANY YOU MISSED.  (null)HERE WILL":[153]
6080 [153]"ALSO BE SOME ADVICE.":[153]
6090 [153][163]13)"CHR$OOD (null)UCK!"
6100 [153]"(null)RESS SPACE BAR TO CONTINUE.";
6110 [151]204,0:[151]207,0:[161]Z$:[139]Z$[178]""[167]6110
6120 [151]204,1:[142]
7000 [153]
10000 D[178][194](186):N$[178]"MIDDLE EARTH":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]